﻿PHEUP TOAN &


Private Sub Command1_Click()
Dim MyStr
    MyStr = "Hello" & " World"
    Debug.Print MyStr
    MyStr = "Check " & 123 & " Check"
    Debug.Print MyStr
End Sub

PHEUP TOAN *

Private Sub Command1_Click()
    Dim MyNum
    MyNum = 10
    Debug.Print MyStr
    MyNum = MyNum*20
    Debug.Print MyStr
End Sub

PHEUP TOAN +

Private Sub Command1_Click()
    Dim MyNum
    MyNum = 10
    Debug.Print MyNum
    MyNum = MyNum+20
    Debug.Print MyNum
    MyNum = "Pham" + " Huu Khang"
    Debug.Print MyNum
End Sub

PHEUP TOAN -

Private Sub Command1_Click()
    Dim MyNum
    MyNum = 10
    Debug.Print MyNum
    MyNum = MyNum-20
    Debug.Print MyNum
End Sub

PHEUP TOAN /

Private Sub Command1_Click()
    Dim MyNum
    MyNum = 100
    Debug.Print MyNum
    MyNum = MyNum/20
    Debug.Print MyNum    
   MyNum = 0/MyNum
    Debug.Print MyNum
End Sub

PHEUP TOAN \

Private Sub Command1_Click()
    Dim MyNum
    MyNum = 107
    Debug.Print MyNum
    MyNum = MyNum\20
    Debug.Print MyNum    
   MyNum = 0\MyNum
    Debug.Print MyNum
End Sub

PHEUP TOAN ^

Private Sub Command1_Click()
    Dim MyNum
    MyNum = 10
    Debug.Print MyNum^2
    MyNum = MyNum^0
    Debug.Print MyNum    
   MyNum = 0^MyNum
    Debug.Print MyNum
End Sub

PHEUP TOAN AND

Private Sub Command1_Click()
    Dim A, B, C, D, MyCheck
    A = 10: B = 8: C = 6: D = Null
    MyCheck = A > B And B > C
    Debug.Print MyCheck
    MyCheck = B > A And B > C
    Debug.Print MyCheck
    MyCheck = A > B And B > D
    Debug.Print MyCheck
    MyCheck = A And B
    Debug.Print MyCheck
End Sub

PHEUP TOAN EQV

Private Sub Command1_Click()
    Dim A, B, C, D, MyCheck
    A = 10: B = 8: C = 6: D = Null
    MyCheck = A > B Eqv B > C
    Debug.Print MyCheck
    MyCheck = B > A Eqv B > C
    Debug.Print MyCheck
    MyCheck = A > B Eqv B > D
    Debug.Print MyCheck
    MyCheck = A Eqv B
    Debug.Print MyCheck
End Sub

PHEUP TOAN IMP

Private Sub Command1_Click()
    Dim A, B, C, D, MyCheck
    A = 10: B = 8: C = 6: D = Null
    MyCheck = A > B Imp B > C
    Debug.Print MyCheck
    MyCheck = A > B Imp C > B
    Debug.Print MyCheck
    MyCheck = B > A Imp C > B
    Debug.Print MyCheck
    MyCheck = B > A Imp C > D
    Debug.Print MyCheck
    MyCheck = C > D Imp B > A
    Debug.Print MyCheck
    MyCheck = B Imp A
    Debug.Print MyCheck
End Sub

PHEUP TOAN IS

Private Sub Command1_Click()
    Dim MyObject, YourObject, ThisObject
    Dim OtherObject, ThatObject, MyCheck
    Set YourObject = MyObject
    Set ThisObject = MyObject
    Set ThatObject = OtherObject
    MyCheck = YourObject Is ThisObject
    Debug.Print MyCheck
    MyCheck = ThatObject Is ThisObject
    Debug.Print MyCheck
    MyCheck = MyObject Is ThatObject
    Debug.Print MyCheck
End Sub

PHEUP TOAN MOD

Private Sub Command1_Click()
    Dim MyNum
    MyNum = 107
    Debug.Print MyNum
    MyNum = MyNum Mod 20
    Debug.Print MyNum    
   MyNum = 0 Mod MyNum
    Debug.Print MyNum
End Sub

PHEUP TOAN NOT

Private Sub Command1_Click()
    Dim A, B, C, D, MyCheck
    A = 10: B = 8: C = 6: D = Null
    MyCheck = Not (A > B)  
    MyCheck = Not (B > A)  
    MyCheck = Not (C > D)  
    MyCheck = Not A   
End Sub

PHEUP TOAN OR

Private Sub Command1_Click()
    Dim A, B, C, D, MyCheck
    A = 10: B = 8: C = 6: D = Null
    MyCheck = A > B Or B > C
    Debug.Print MyCheck
    MyCheck = B > A Or B > C
    Debug.Print MyCheck
    MyCheck = A > B Or B > D
Debug.Print MyCheck
    MyCheck = B > D Or B > A
    Debug.Print MyCheck
    MyCheck = A Or B
    Debug.Print MyCheck
End Sub

PHEUP TOAN XOR

Private Sub Command1_Click()
    Dim A, B, C, D, MyCheck
    A = 10: B = 8: C = 6: D = Null
    MyCheck = A > B Xor B > C
    Debug.Print MyCheck
    MyCheck = B > A xOr B > C
    Debug.Print MyCheck
    MyCheck = B > A xOr C > B
Debug.Print MyCheck
    MyCheck = B > D XOr A > B
    Debug.Print MyCheck
    MyCheck = A XOr B
    Debug.Print MyCheck
End Sub
TOAUN T™U (OPERATORS) A-Z  3-1

